50 REM VERSION 2.1
100 REM  (C) 1985 INFER-STRUCTURE SERVICES
110 REM           12 GLEBEMOUNT AVE.
111 REM           SECOND FLOOR
112 REM           TORONTO  ONT.
113 REM           CANADA
114 REM           M4C 3R3
115 REM THIS PROGRAM MAY BE COPIED AND DISTRIBUTED BUT NOT FOR PROFIT.
140 ::POKE53265,27:GOTO910
160 DIMFM$(FT+FA),FL%(FT+FA),F1$(FT+FA):GOTO1360
170 DIMKF$(RT+RA),RP%(RT+RA):GOTO1630
200 E2=RP%(0):IFE2=0ORKF$(RN)<KF$(E2)THENRP%(RN)=E2:RP%(0)=RN:GOTO270
220 E3=E2:E2=RP%(E2)
240 IFE2=0ORKF$(RN)<KF$(E2)GOTO260
250 E3=E2:E2=RP%(E2):GOTO240
260 RP%(E3)=RN:RP%(RN)=E2
270 RETURN::
380 PRINT"[147]KEYFIELD SETUP:[146] ":PRINT:FORE1=1TOFT:PRINT""E1;"[157].[146] ";FM$(E1):NEXT
430 PRINT"USE WHICH AS KEY:[146]
440 [161]E1$:KF[178][197](E1$):[139]KF[179]1[176]KF[177]FT[167][137]440
450 [153]"LOAD":FK$[178][196](KF)[170]"."[170]FP$:[159]11,8,11,"0:"[170]FK$[170]".REL":[129]E1[178]1[164]RT:[132]11,KF$(E1)
490 RP%(E1)[178]E1[170]1:[130]:RP%(RT)[178]0:RP%(0)[178]0:KF$(0)[178][199](255):[151]53265,0:[129]E1[178]1[164]RT
570 [139]KF$(E1)[178][199](255)[167]RP%(E1)[178]NE:NE[178]E1:[137]590
580 RN[178]E1:[141]200
590 [130]:[151]53265,27:[160]11:[142]::::
660 [141]6990:[141]4480:[141]3220:[141]7050:[141]4480:[141]3220:[153]"LOADSCAN FOR: WAIT";:M1[178]2:M2[178]0:P4[178]80:[141]1850
700 SS$[178]O1$:[139]SS$[178]""[137]890
710 [139][200](SS$,1)[178]"*"[167]SS$[178][202](SS$,2)
720 [139][201](SS$,1)[178]"*"[167]SS$[178][200](SS$,[195](SS$)[171]1)
730 U5[178][195](SS$):RN[178]RP%(0):[139]D1$(3)[178]"K"[167]U3[178]KF
760 [139]D1$(3)[178]"D"[167][129]U3[178]1[164]FT:[141]6710
770 [139]RN[178]0[167]850
780 F1$(U3)[178]KF$(RN):KE$[178]" "[170]KF$(RN)[170]" ":U6[178][195](KE$):U1[178]1
800 [139][202](KE$,U1,U5)[178]SS$[167][141]6580:U1[178]U6[170]1
810 [161]GK$:[139]GK$[179][177]""[167]U3[178]FT[170]1:[137]850
830 [139]U1[170]U5[179][178]U6[167]U1[178]U1[170]1:[137]800
840 RN[178]RP%(RN):[137]770
850 [139]D1$(3)[178]"D"[167]RN[178]RP%(0):[130]
860 [141]4340:[139]D1$(3)[178]"D"[167]U3[178]1:[141]6710
880 D1$(3)[178]"
890 RETURN::
910 PRINTCHR$(14):PRINT"[147]":CL=PEEK(3):IFCL<>22ANDCL<>40ANDCL<>80THENGOTO2300
940 DF$="":IFCL<>22THENDF$="          
950 [139]CL[178]22[167]SF[178]3:IB[178]88
960 [139]CL[178]40[167]SF[178]6:IB[178]80
970 [139]CL[178]80[167]SF[178]12:IB[178]80
980 [159]15,8,15:SP$[178]"                                        ":SP$[178]SP$[170]SP$
990 SP$[178]SP$[170]SP$:SP$[178][200](SP$,IB)
1000 LS$[178]"":[139]CL[178]22[167]LS$[178][200](LS$,22)
1010 CS$[178]"":HL$[178]""[170][200](SP$,CL)[170]"WAIT
1030 PRINT"[147]";HL$;:PRINT:PRINTDF$;"  [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]":PRINT:PRINTHL$;"";
1060 PRINTLEFT$(LS$,8)"       DATABASE NAME:[146]":M1=9:M2=0:P4=12:GOSUB1850:DB$=O1$
1070 PRINTLEFT$(LS$,11);"         FILE PREFIX:[146]":M1=12:M2=0:P4=12:GOSUB1850:FP$=O1$
1080 PRINTLEFT$(LS$,14)"CREATE NEW DATABASE?:[146]":M1=15:M2=0:P4=12:GOSUB1850:A$=LEFT$(O1$,1)
1090 P4=12:PRINTLEFT$(LS$,8):GOSUB4270:IFGK$="N"THENGOTO1030
1180 IFA$="Y"THENGOTO1240
1190 IFA$<>"N"THENGOTO1030
1200 ::OPEN11,8,11,"0:"+FP$+".SEQ,S,R":INPUT#11,RT,FT,NE::
1240 PRINT"[147]":PRINT"NO. OF RECORDS[146]"RT:PRINT:PRINT"EMPTY  RECORDS[146]"NE:PRINT:PRINT"NO. OF FIELDS [146]"FT
1270 PRINT:PRINT:PRINT:PRINT"ADD HOW MANY: [146]":PRINT:PRINTLEFT$(LS$,13);"   RECORDS   [146]
1290 M1[178]13:M2[178]15:P4[178]4:[141]1850:RA[178][197](O1$):[139]FT[137]1350
1320 [153][200](LS$,15);"   FIELDS    WAIT":M1[178]15:M2[178]15:P4[178]4:[141]1850:FA[178][197](O1$)::
1350 [137]160
1360 [139]FA[178]0[167]1460
1370 [153]"LOAD FIELD NO.: WAIT ":[153]:M1[178]1:M2[178]13:P4[178]3:[129]I[178]FT[170]1[164]FT[170]FA:M1[178]M1[170]2
1410 [153][200](LS$,M1);""I"CMD. LENGTH:WAIT";:[141]1850:[139][197](O1$)[177]IB[167]I[178]I[171]1:M1[178]M1[171]2:[137]1440
1430 FL%(I)[178][197](O1$)
1440 [130]::
1460 [139]A$[178]"Y"[167]1510
1470 [129]I[178]1[164]FT:[132]11,FM$(I),FL%(I):[130]:[160]11
1510 FT[178]FT[170]FA:R1[178][171](SF[171]1)
1530 F2[178]0:P4[178]12:[153]"LOADFIELD NO.WAIT"::[141]4420:[129]I[178]R1[164]R2:[153]"";I;"CMD.";
1560 [153]"  FIELD NAME: WAIT":[153]SP$;:[130]:[153][200](LS$,4):[129]I[178]R1[164]R2:[153][200](FM$(I)[170]SP$,IB):[130]
1590 [141]3550:[139]R2[179][177]FT[167][137]1530
1600 [129]I[178]1[164]FT:FM$(I)[178]F1$(I):[130]:F2[178]1:::[137]170
1630 [153]"LOAD":[139]RA[178]0[167]1670
1650 RN[178]RT[170]RA:[141]6500
1670 RT[178]RT[170]RA:[141]4140:KF[178]1:[141]450::
1720 [141]6800:[141]4480:[141]3220:[139]D1$(1)[178]"A"[167][141]3330
1750 [139]D1$(1)[178]"S"[167][141]660
1760 [139]D1$(1)[178]"E"[167][141]3970
1770 [139]D1$(1)[178]"R"[167][141]3780
1780 [139]D1$(1)[178]"P"[167][141]4550
1790 [139]D1$(1)[178]"Q"[167][160]15:[128]
1800 [139]D1$(1)[178]"K"[167][141]380
1810 [139]D1$(1)[178]"D"[167][141]5170
1820 [137]1720::
1850 [153][200](LS$,M1);[200](CS$,M2);:[141]1960:[153][200](LS$,M1);[200](CS$,M2);
1880 [151]198,0:[159]1,0:[151]631,13:[151]198,1:[132]1,O1$:[160]1:[153]:[142]::
1960 [139][201](P3$,1)[178]" "[167]P3$[178][200](P3$,[195](P3$)[171]1):[137]1960
1970 P3[178][195](P3$):[139]P3[178]0[167]P3[178]1
1980 P2[178]1
1990 [151]204,0
2000 [161]P1$:[139]P1$[178]""[137]2000
2010 [151]204,1:[151]207,0:P1[178][198](P1$)
2030 [139](P1[179]32[176]P1[177]96)[175](P1[179]192[176]P1[177]219)[176]P1[178]44[176]P1[178]34[176]P1[178]58[176]P1[178]59[137]2060
2040 [139]P2[179]P3[167]P2[178]P2[170]1:[137]2130
2050 [139]P2[178]P3[175]P3[179][178]P4[167]P2[178]P2[170]1:P3[178]P3[170]1:[137]2130
2060 [139]P1[178]157[175]P2[177]1[167]P2[178]P2[171]1:[137]2130
2070 [139]P1[178]20[175]P2[177]1[167]P2[178]P2[171]1:P3[178]P3[171]1:[137]2130
2080 [139]P1[178]29[175]P2[179]P3[167]P2[178]P2[170]1:[137]2130
2090 [139]P1[178]29[175]P2[178]P3[175]P2[179][178]P4[167]P2[178]P2[170]1:P3[178]P3[170]1:[137]2130
2100 [139]P1[178]148[175]P3[179][178]P4[167]P3[178]P3[170]1:[137]2130
2110 [139]P1[178]13[137]2130
2120 [137]1990
2130 X[178][194](209)[170][194](210)[172]256[170][194](211):[151]X,[194](X)[175]127:[153]P1$;:[139]P1[179][177]13[137]1990
2150 [153]:[142]::
2164 [129]D1[178]1[164]RT
2166 [161]#11,D1$:[139]ST[167]KF$(D1)[178]"%&*":D1[178]RT[170]1:[137]2174
2170 [139]D1$[179][177][199](13)[167]D2$[178]D2$[170]D1$:[137]2166
2172 KF$(D1)[178]D2$:D2$[178]"
2174 NEXT:RETURN::
2210 FORX1=1TOFT:X1$=STR$(X1)+"."+FP$:OPEN12,8,12,"0:"+X1$+".REL,L,"+CHR$(FL%(X1)+1):GOSUB3020
2250 INPUT#12,F1$(X1):IFLEFT$(F1$(X1),1)="_"THENF1$(X1)=" 
2260 [141]3020:[160]12:[130]:[142]
2300 [153]"LOAD(null)(null)VALCLOSEPEEK(null)(null)(null)CLOSE(null)(null)STR$(null)(null)VALCLOSE!":[160]15:[128]::
2350 [153]LS$;"";DF$;"WRITE THIS RECORD WAIT
2360 GETY1$:IFY1$="N"GOTO2480
2370 IFY1$<>"Y"GOTO2360
2380 FORY1=1TOFT:Y1$=STR$(Y1)+"."+FP$:OPEN12,8,12,"0:"+Y1$+".REL,L,"+CHR$(FL%(Y1)+1):GOSUB3020
2420 Y2$=LEFT$(F1$(Y1),1):IFY2$=" "ORY2$=""THENF1$(Y1)="_
2440 [152]12,F1$(Y1):[141]3020:[160]12:[130]
2480 [142]::
2510 [139]W3[137]2560
2511 [153]"LOAD":W1[178]1:W3[178]1:[137]2540:[153][200](LS$,2);"LABELS PER LINE:WAIT ";
2530 M1[178]2:M2[178]17:P4[178]3:[141]1850:W1[178][197](O1$)
2540 [153][200](LS$,4);"LINES PER LABEL:WAIT ";:M1[178]4:M2[178]17:P4[178]3:[141]1850:W4[178][197](O1$)
2560 [129]W2[178]1[164]W1:[139]W2[177]1[167]RN[178]RP%(RN)
2570 [141]2210
2580 [139][201](F1$(2),1)[178]" "[167]F1$(2)[178][200](F1$(2),[195](F1$(2))[171]1):[137]2580
2590 W1$(W2,1)[178]F1$(2)[170]" "[170]F1$(1):[139][200](F1$(3),1)[178]" "[167][137]2650
2610 W1$(W2,2)[178]F1$(3):W1$(W2,3)[178]F1$(4):W1$(W2,4)[178]F1$(5)
2620 [139][201](F1$(6),1)[178]" "[167]F1$(6)[178][200](F1$(6),[195](F1$(6))[171]1):[137]2620
2630 W1$(W2,5)[178]F1$(6)[170]" "[170]F1$(7):W1$(W2,6)[178]F1$(8):[137]2750
2650 [139][200](F1$(4),1)[178]" "[167][137]2710
2660 W1$(W2,2)[178]F1$(4):W1$(W2,3)[178]F1$(5):W1$(W2,4)[178]F1$(6):W1$(W2,5)[178]F1$(7)
2670 [139][201](F1$(6),1)[178]" "[167]F1$(6)[178][200](F1$(6),[195](F1$(6))[171]1):[137]2670
2680 W1$(W2,4)[178]F1$(6)[170]" "[170]F1$(7):W1$(W2,5)[178]F1$(8):W1$(W2,6)[178]" ":[137]2750
2710 W1$(W2,2)[178]F1$(5)
2720 [139][201](F1$(6),1)[178]" "[167]F1$(6)[178][200](F1$(6),[195](F1$(6))[171]1):[137]2720
2730 W1$(W2,3)[178]F1$(6)[170]" "[170]F1$(7):W1$(W2,4)[178]F1$(8):W1$(W2,5)[178]" ":W1$(W2,6)[178]" 
2750 IFD1$(6)="C"ANDRN<>T3THENNEXT:GOTO2770
2760 W2=W1+2
2770 IFW2<>W1+2THENGOSUB2810
2780 RETURN::
2810 OPEN4,4,7:FORX2=1TO6:PRINT#4,W1$(1,X2);:IFW1<>2THENPRINT#4:GOTO2860
2850 PRINT#4,CHR$(16)"40";W1$(2,X2)
2860 NEXT:FORX2=1TOW4-6:PRINT#4:NEXT:CLOSE4:RETURN::
2940 INPUT#15,A1$,A4$,A2$,A3$:IFD1$(5)="E"THENPRINT"[147]"A1$" "A4$" "A2$" "A3$"":GOSUB4340
2960 RETURN::
3020 B1=INT(RN/256):B2=RN-B1*256:PRINT#15,"P"CHR$(12+96)CHR$(B2)CHR$(B1)CHR$(1):RETURN::
3090 OPEN1,8,0,"$":PRINT"[147]":GET#1,X$,X$
3110 GET#1,X$,X$,X$,X$:IFSTTHENCLOSE1:GOTO3170
3130 GET#1,X$:IFX$=""THENPRINT:GOTO3110
3140 IFX$=CHR$(34)THENQ=NOTQ
3150 IFQTHENPRINTX$;
3160 GOTO3130
3170 GOSUB4340:RETURN::
3220 PRINT"";DF$;"COMMAND:[146]
3230 [161]D1$(MN):[139]D1$(MN)[179][178]"9"[176]D1$(MN)[177]"Z"[167][137]3230
3240 [129]D1[178]1[164]OP:[139]D1$(MN)[178][200](MN$(MN,D1),1)[167]D1[178]OP[170]1
3260 [130]:[139]D1[179][177]OP[170]2[167]3230
3280 [142]::
3330 [129]G1[178]1[164]FT:F1$(G1)[178]" ":[130]
3360 [139]NE[178]0[167][137]3490
3370 RN[178]NE:[139]D1$(5)[178]"S"[167]3440
3390 R1[178][171](SF[171]1)
3400 [141]4420:[141]3680:[141]3550:[139]R2[179][177]FT[167][137]3400
3440 [139]D1$(5)[178]"S"[167][141]2380:[137]3470
3450 [141]2350:[139]Y1$[178]"N"[137]3510
3470 NE[178]RP%(NE):[139]NE[167]3500
3490 [153]"LOADNO EMPTY RECORDS LEFTWAIT":[141]4340:[137]3510
3500 KF$(RN)[178]F1$(KF):[141]200
3510 [142]::
3550 [153]"":[129]F1[178]R1[164]R2:P3$[178]F1$(F1):[139]F2[167]P4[178]FL%(F1)
3580 [141]1960:[130]:[141]4270:[139]GK$[178]"N"[167][137]3550
3600 [153]"":[129]F1[178]R1[164]R2:[151]198,0:[159]1,0:[151]631,13:[151]198,1:[132]1,F1$(F1):[160]1:[153]:[153]:[130]:[142]::
3680 [153]"LOAD":[153]"RECORD:WAIT ";RN:[153]:[129]H1[178]R1[164]R2:[139]CL[178]22[167][153]"";FM$(H1);"   ";FL%(H1);"WAIT
3720 IFCL<>22THENPRINT"NAME:[146] ";FM$(H1),"LENGTH:[146] ";FL%(H1)
3730 PRINTLEFT$(F1$(H1)+SP$,IB);:NEXT:RETURN::
3780 PRINT"[147]";LEFT$(LS$,2);" WHICH RECORD:[146]";:M1=2:M2=17:P4=3:GOSUB1850
3800 RN=VAL(O1$):IFRN=0THEN3940
3810 GOSUB2210:R1=-(SF-1):GOSUB4420:GOSUB3680:PRINTLS$;"";DF$;"DELETE THIS RECORD [146]
3860 [161]GK$:[139]GK$[178]"N"[167][137]3940
3880 [139]GK$[179][177]"Y"[167][137]3860
3890 [141]6500:KF$(RN)[178][199](255):RP%(RN)[178]NE:NE[178]RN:[141]450
3940 [142]::
3970 [153]"LOAD":[153][200](LS$,2);" WHICH RECORD:WAIT ";
3980 M1[178]2:M2[178]17:P4[178]4:[141]1850:RN[178][197](O1$):[139]RN[178]0[167]4100
3990 [141]2210:R1[178][171](SF[171]1)
4010 [141]4420:[141]3680:[139]R2[177]6[137]4070
4040 [153]LS$;"";DF$;"EDIT THIS RECORD WAIT 
4050 GETGK$:IFGK$="N"THENGOTO4100
4060 IFGK$<>"Y"THENGOTO4050
4070 GOSUB3550:IFR2<>FTTHENGOTO4010
4090 GOSUB2350
4100 RETURN::
4140 PRINT#15,"S0:"+FP$+".SEQ":OPEN11,8,11,"0:"+FP$+".SEQ,S,W":PRINT#11,RT:PRINT#11,FT:PRINT#11,NE
4180 FORI=1TOFT:PRINT#11,FM$(I):PRINT#11,FL%(I):NEXT:CLOSE11:RETURN::
4270 PRINTLS$;"";DF$"IS THIS CORRECT [146] ";
4280 GETGK$:IFGK$<>"N"ANDGK$<>"Y"THENGOTO4280
4300 PRINTLS$;LEFT$(SP$,CL);:RETURN::
4340 PRINT" <RETURN> [146]
4350 [161]O1$:[139]O1$[179][177][199](13)[175]O1$[179][177][199](141)[137]4350
4370 [142]::
4420 R1[178]R1[170]SF:R2[178]R1[170]SF[171]1:[139]R1[177]FT[171]SF[167]R2[178]FT
4450 [142]::
4480 [153]"LOAD":[129]S1[178]1[164]OP:[153]DF$;"";[200](MN$(MN,S1),1);"WAIT";[202](MN$(MN,S1),2):[153]:[130]:[142]::
4550 [141]6920:[141]4480:[141]3220
4580 [141]7210:[141]4480:[141]3220:W3[178]0:[153]"LOAD":[139]D1$(6)[178]"B"[137]4690
4610 [153][200](LS$,2);" FIRST RECORD: WAIT";
4620 M1[178]2:M2[178]17:P4[178]3:[141]1850:[139]O1$[178]"B"[167]T2[178]RP%(0):[137]4650
4630 T2[178][197](O1$):[139]T2[178]0[167]4810
4650 [153][200](LS$,4);" LAST RECORD:  WAIT";:M1[178]4:M2[178]17:P4[178]4:[141]1850:T3[178][197](O1$):RN[178]T2:[137]4730
4690 [141]4840:T1[178]0
4710 [139]L1%(T1)[178]0[167]4790
4720 RN[178]L1%(T1)
4730 [139]D1$(2)[178]"P"[167][141]5040
4740 [139]D1$(2)[178]"S"[167][141]4940
4750 [139]D1$(2)[178]"L"[167][141]2510
4752 [139]D1$(5)[178]"R"[167][141]5390
4755 [161]GK$:[139]GK$[179][177]""[167]4790
4760 [139]D1$(6)[178]"B"[167]T1[178]T1[170]1:[137]4710
4770 [139]D1$(6)[178]"C"[167][139]RP%(RN)[175]RN[179][177]T3[167]RN[178]RP%(RN):[137]4730
4790 D1$(2)[178]"":D1$(6)[178]"":[142]::
4810 D1$(2)[178]"":[142]::
4840 M1[178]0:M2[178]15:P4[178]4:[129]L1[178]0[164]9:M1[178]M1[170]2:[153][200](LS$,M1);" RECORD NO.:WAIT ";
4880 [141]1850:L1%(L1)[178][197](O1$):[139]L1%(L1)[178]0[167]L1[178]10
4900 [130]:[142]::
4940 R1[178][171](SF[171]1):[141]2210:[161]GK$:[139]GK$[179][177]""[167]5010
4970 [141]4420:[141]3680:[141]4340:[139]R2[179][177]FT[167]4970
5010 [142]::
5040 [159]4,4,7:[141]2210:[152]4:[152]4:[152]4,[199](18)" RECORD NO.:"[199](146)RN:[152]4:[129]V2[178]1[164]FT:[152]4,F1$(V2):[130]
5100 [152]4:[161]GK$:[139]GK$[179][177]""[167]5120
5120 [160]4:[142]::
5170 [141]7110:[141]4480:[141]3220:[139]D1$(5)[178]"E"[167][141]2940
5210 [139]D1$(5)[178]"D"[167][141]3090
5220 [139]D1$(5)[178]"S"[167][141]5710
5230 [139]D1$(5)[178]"P"[167][141]6260
5240 [139]D1$(5)[178]"R"[167][141]5290
5250 D1$(5)[178]"":[142]::
5290 [141]5790:[141]6222:L1$[178]"W":[139][200](TM$,1)[178]"+"[167]L1$[178]"A":TM$[178][202](TM$,2)
5370 [159]11,9,11,"0:"[170]TM$[170]"S,"[170]L1$:[141]4580:[160]11:[142]::
5390 [141]2210:[129]L2[178]1[164]FT:[152]11,F1$(L2):[130]:[142]::
5480 T5[178][171]1:[129]T2[178]1[164]NG:T4[178](T2[171]1)[172]FT[170]1:[132]11,KF$(T4):[139]ST[167]T5[178]T2[171]1:T2[178]NG[170]1:NG[178]T5:[137]5550
5520 [129]T3[178]2[164]FT:[132]11,KF$((T2[171]1)[172]FT[170]T3):[130]
5550 [130]:[142]::
5600 [139]NG[178]0[167]5670
5610 [129]U1[178]1[164]NG:[129]U2[178]1[164]FT:F1$(U2)[178]KF$(((U1[171]1)[172]FT)[170]U2):[130]:[141]3360:[130]
5670 [142]::
5710 [153]"LOADHOW MANY DRIVES? WAIT";
5715 [161]GK$:[139]GK$[179][177]"1"[175]GK$[179][177]"2"[137]5715
5720 [141]5790:NG[178][181](RT[173]FT):[145][197](GK$)[141]5860,6100:[141]450:[142]::
5790 [153]"LOAD":[153][200](LS$,2);" FILENAME: WAIT":M1[178]3:M2[178]0:P4[178]12:[141]1850:TM$[178]O1$:[142]::
5860 V2[178]0
5870 [153]:[153]"INSERT SEQ FILE DISKWAIT":[141]4340:[159]11,8,11,"0:"[170]TM$[170]"S,R":[141]6020:[141]5480:[160]11
5930 [153]:[153]"INSERT D-BASE DISKWAIT":[141]4340:[141]5600:V2[178]V2[170]NG[172]FT:[139]T5[179]0[137]5870
5980 [142]::
6020 [139]V2[178]0[137]6060
6030 [129]X1[178]1[164]V2:[132]11,X1$:[130]
6060 [142]::
6100 [141]6222:[159]11,9,11,"0:"[170]TM$[170]"S,R
6180 GOSUB5480:GOSUB5600:IFT5<0GOTO6180
6210 CLOSE11:RETURN::
6222 PRINT"[147]":PRINT"SEQ FILE DISK  [146]":PRINT"IN DRIVE #9    [146]":PRINT:PRINT"D-BASE DISK    [146]
6227 [153]"IN DRIVE #8    WAIT":[153]:[153]"DRIVES  READY? WAIT":[141]4340:[142]::
6260 [141]5790:[141]7050:[141]4480:[141]3220:[153]"LOADDISC IN DRIVE #8? WAIT":[141]4340:[153]"LOAD
6290 OPEN11,8,11,"0:"+TM$+"S,R":D2=0:D2$="
6310 [139]D1$(4)[178]"P"[167][159]4,4,7
6320 [141]2164:[129]D1[178]1[164]RT:[139]KF$(D1)[178]"%&*"[167]D1[178]RT[170]1:[137]6410
6380 D2[178]D2[170]1:[139][195](KF$(D1))[177]CL[167]D2[178]D2[170]1
6390 [139]D1$(4)[178]"P"[167][152]4,KF$(D1):[137]6420
6400 [153]KF$(D1)
6410 [139]D1[179][177]RT[170]1[175]D2[179]22[137]6420
6412 [153]:[141]4340:D2[178]0:[153]"LOAD":[139]O1$[178][199](141)[167]D1[178]RT[170]1
6420 [130]:[139]D1$(4)[178]"P"[167][160]4
6440 [139]D1[179][177]RT[170]2[167]6310
6450 [160]11:[153]"LOAD":[153]:[153]" INSERT D-BASE DISK WAIT":[141]4340:U3[178]KF:[141]6710:D1$(4)[178]"":[142]::
6500 [129]Z1[178]1[164]FT:F1$(Z1)[178][199](255):[130]:[141]2380:[142]::
6580 [139]D1$(4)[178]"P"[167][159]4,4,7:[157]4
6590 [153]" RECORD:WAIT";RN;DF$;:[139]CL[179][177]22[167][153]" FIELD:WAIT ";FM$(U3)
6600 [139]CL[178]22[167][153]
6610 [153]F1$(U3):[139]D1$(4)[178]"P"[167][152]4:[160]4:[137]6670
6630 TI$[178]"000000
6640 GETGK$:IFGK$=CHR$(13)THENGOSUB4940:PRINT"[147] SCAN FOR: [146]";SS$:GOTO6670
6660 U8=FRE(0):IFTI$<"000002"THEN6640
6670 RETURN::
6710 FK$=STR$(U3)+"."+FP$:OPEN11,8,11,"0:"+FK$+".REL":FORW1=1TORT:INPUT#11,KF$(W1):NEXT:CLOSE11:RETURN::
6800 MN$(1,1)="ADD":MN$(1,4)="SCAN":MN$(1,2)="EDIT":MN$(1,3)="REMOVE
6840 MN$(1,6)[178]"PRINT":MN$(1,8)[178]"QUIT":MN$(1,5)[178]"KEYFIELD":MN$(1,7)[178]"DISC
6880 OP=8:MN=1:RETURN::
6920 MN$(2,1)="SCREEN":MN$(2,2)="PRINTER":MN$(2,3)="LABELS":OP=3:MN=2:RETURN::
6990 MN$(3,1)="KEYFIELD":MN$(3,2)="DATABASE":OP=2:MN=3:RETURN::
7050 MN$(4,1)="SCREEN":MN$(4,2)="PRINTER":OP=2:MN=4:RETURN::
7110 MN$(5,1)="ERROR":MN$(5,2)="DIRECTORY":MN$(5,4)="SEQ > REL":MN$(5,3)="PRINT
7150 MN$(5,5)[178]"REL > SEQ":OP[178]5:MN[178]5:[142]::
7210 MN$(6,1)[178]"BATCH":MN$(6,2)[178]"CONTINUOUS":OP[178]2:MN[178]6:[142]::